home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 September & October / Amiga-CD 1996 #9-10.iso / demos / rdb-salv / steuerung < prev    next >
AmigaDOS Script File  |  1996-07-22  |  2KB  |  110 lines
  1. .key param
  2. .bra [
  3. .ket ]
  4. . Skript für Verwaltungsaufgaben
  5. . © MagnaMedia Verlag AG, AMIGA-Magazin
  6. failat >nil: 21
  7. if "[param]" EQ "info"
  8.     set vinfo 1
  9. endif
  10. if "[param]" EQ "copy"
  11.     set vcopy 1
  12. endif
  13. if "[param]" EQ "start"
  14.     set vassign 1
  15.     set vstart 1
  16.     set vunassign 1
  17. endif
  18. if "[param]" EQ "install"
  19.     set vinstall 1
  20. endif
  21. set binfo        1
  22. set bcopy        1
  23. set bstart       1
  24. set binstall     1
  25.  
  26.     echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
  27.     set nummer 0
  28.     if $binfo EQ 1
  29.          echo >>t:tmpsteuerung " Info" NOLINE
  30.          set nummer `eval $nummer + 1`
  31.          set ninfo $nummer
  32.     endif
  33.     if $bcopy EQ 1
  34.          echo >>t:tmpsteuerung " Kopieren" NOLINE
  35.          set nummer `eval $nummer + 1`
  36.          set ncopy $nummer
  37.     endif
  38.     if $bstart EQ 1
  39.          echo >>t:tmpsteuerung " Start" NOLINE
  40.          set nummer `eval $nummer + 1`
  41.          set nstart $nummer
  42.     endif
  43.     if $binstall EQ 1
  44.          echo >>t:tmpsteuerung " Installieren" NOLINE
  45.          set nummer `eval $nummer + 1`
  46.          set ninstall $nummer
  47.     endif
  48.     if "[param]" EQ ""
  49.         echo >>t:tmpsteuerung " Ende" NOLINE
  50.         execute >nil: t:tmpsteuerung
  51.         delete >nil: t:tmpsteuerung
  52.         set reqerg[$$] `getenv env:AmigaCD/req20erg`
  53.         if $reqerg[$$] EQ 0
  54.             skip Ende
  55.         endif
  56.     endif
  57.     if $reqerg[$$] EQ $ninfo
  58.         set vinfo 1
  59.     endif
  60.     if $reqerg[$$] EQ $ncopy
  61.         set vcopy 1
  62.     endif
  63.     if $reqerg[$$] EQ $nstart
  64.         set vassign 1
  65.         set vstart 1
  66.         set vunassign 1
  67.     endif
  68.     if $reqerg[$$] EQ $ninstall
  69.         set vinstall 1
  70.     endif
  71. endif
  72.  
  73. if $vinfo EQ 1
  74. ;>>>>>>>> Hier Infotext eintragen
  75.     :c/Metatool ":Demos/RDB-Salv/Deutsch/RDB-salv.guide" FT=GUIDE
  76. endif
  77. if $vstart EQ 1
  78. ;>>>>>>>> Hier steht das Startprogramm
  79.     :Demos/RDB-Salv/RDB-Salv
  80. endif
  81. if $vcopy EQ 1
  82.     execute :c/Verzeichniskopieren ":Demos/RDB-Salv/" "RDB-Salv" 5472256
  83. endif
  84. if $vinstall EQ 1
  85. ;>>>>>>>> Hier Install-Skript eintragen
  86.     cd :demos/RDB-Salv
  87.     assign l: :l add
  88.     :c/WBstarter >nil: :Demos/RDB-Salv/Install
  89.     assign l: :l remove
  90.     skip Ende
  91. endif
  92.  
  93. unset binfo
  94. unset vinfo
  95. unset ninfo
  96. unset bstart
  97. unset vstart
  98. unset nstart
  99. unset binstall
  100. unset vinstall
  101. unset ninstall
  102. unset bcopy
  103. unset vcopy
  104. unset ncopy
  105. if "[param]" EQ ""
  106.     execute ":Demos/RDB-Salv/Steuerung"
  107. endif
  108. LAB Ende
  109. unsetenv reqerg[$$]
  110.